home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
ptv1n4.arc
/
PUT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-09-13
|
469b
|
17 lines
{ put.pas -- Transfer a string to the passive TSR's buffer }
program put;
uses crt, utransfer;
var
s : string; { String to transfer }
n : word; { Number of bytes transferred }
begin
write( 'Enter a string: ' );
readln( s );
n := PutBlock( @s, length( s ) + 1, 1 ); { 1 = data-type code }
if transferError <> 0 then
begin
writeln( 'ERROR: Code #', transferError );
halt( transferError )
end { if }
end.